%                **** IMPORTANT NOTICE *****
% This LaTeX file has been automatically produced by ProTeX v. 1.1
% Any changes made to this file will likely be lost next time
% this file is regenerated from its source. Send questions 
% to Arlindo da Silva, dasilva@gsfc.nasa.gov
 
\parskip        0pt
\parindent      0pt
\baselineskip  11pt
 
%--------------------- SHORT-HAND MACROS ----------------------
\def\bv{\begin{verbatim}}
\def\ev{\end{verbatim}}
\def\be{\begin{equation}}
\def\ee{\end{equation}}
\def\bea{\begin{eqnarray}}
\def\eea{\end{eqnarray}}
\def\bi{\begin{itemize}}
\def\ei{\end{itemize}}
\def\bn{\begin{enumerate}}
\def\en{\end{enumerate}}
\def\bd{\begin{description}}
\def\ed{\end{description}}
\def\({\left (}
\def\){\right )}
\def\[{\left [}
\def\]{\right ]}
\def\<{\left  \langle}
\def\>{\right \rangle}
\def\cI{{\cal I}}
\def\diag{\mathop{\rm diag}}
\def\tr{\mathop{\rm tr}}
%-------------------------------------------------------------

\markboth{Left}{Source File: time.F,  Date: Thu Mar 22 01:00:48 MST 2001
}

 
%/////////////////////////////////////////////////////////////

  \subsubsection{time\_set}


                              
   
\bigskip{\sf INTERFACE:}
\begin{verbatim}       function time_set ( days, seconds )
 \end{verbatim}{\em USES:}
\begin{verbatim}       none
 \end{verbatim}{\em INPUT PARAMETERS:}
\begin{verbatim}       implicit NONE
 
       integer, intent(in) :: days           ! Days in interval
       integer, intent(in) :: seconds        ! Seconds in interval
 \end{verbatim}{\em OUTPUT PARAMETERS:}
\begin{verbatim}       type(time_t) :: time_set              ! Returned time
 \end{verbatim}
{\sf DESCRIPTION:\\ }


  
   Returns the time interval specified by the sum of {\tt days} and 
   {\tt seconds}.
  
\bigskip{\sf REVISION HISTORY:}
\begin{verbatim}    Feb 8, 2001    B. Eaton    Specification.\end{verbatim}
 
%/////////////////////////////////////////////////////////////
 
\mbox{}\hrulefill\ 
 

  \subsubsection{time\_get() }


   
\bigskip{\sf INTERFACE:}
\begin{verbatim}       subroutine time_get ( time, days, seconds )
 \end{verbatim}{\em USES:}
\begin{verbatim}       none
 \end{verbatim}{\em INPUT PARAMETERS:}
\begin{verbatim}       implicit NONE
 
       type(time_t), intent(in) :: time      ! Input time
 \end{verbatim}{\em OUTPUT PARAMETERS:}
\begin{verbatim}       integer, intent(out) :: days          ! Days in interval
       integer, intent(out) :: seconds       ! Seconds in interval
 \end{verbatim}
{\sf DESCRIPTION:\\ }


  
   Returns the attributes of time in the form of {\tt days} 
   and {\tt seconds}.
  
\bigskip{\sf REVISION HISTORY:}
\begin{verbatim}    Feb 8, 2001    B. Eaton    Specification.\end{verbatim}
 
%/////////////////////////////////////////////////////////////
 
\mbox{}\hrulefill\ 
 

  \subsubsection{time\_days() }


   
\bigskip{\sf INTERFACE:}
\begin{verbatim}       function time_days ( time )
 \end{verbatim}{\em USES:}
\begin{verbatim}       none
 \end{verbatim}{\em INPUT PARAMETERS:}
\begin{verbatim}       implicit NONE
 
       type(time_t), intent(in) :: time      ! Input time
 \end{verbatim}{\em OUTPUT PARAMETERS:}
\begin{verbatim}       real(r8) :: time_days                 ! Returned days
 \end{verbatim}
{\sf DESCRIPTION:\\ }


  
   Returns the length of {\tt time} in units of days.
  
\bigskip{\sf REVISION HISTORY:}
\begin{verbatim}    Feb 8, 2001    B. Eaton    Specification.\end{verbatim}
 
%/////////////////////////////////////////////////////////////
 
\mbox{}\hrulefill\ 
 

  \subsubsection{time\_increment()}


   
\bigskip{\sf INTERFACE:}
\begin{verbatim}       function time_increment ( time, days, seconds )
 \end{verbatim}{\em USES:}
\begin{verbatim}       none
 \end{verbatim}{\em INPUT PARAMETERS:}
\begin{verbatim}       implicit NONE
 
       type(time_t), intent(in) :: time      ! Initial time
       integer, intent(in) :: days           ! Days in interval
       integer, intent(in) :: seconds        ! Seconds in interval
 \end{verbatim}{\em OUTPUT PARAMETERS:}
\begin{verbatim}       type(time_t) :: time_increment        ! Returned time
 \end{verbatim}
{\sf DESCRIPTION:\\ }


  
   Increments {\tt time} by {\tt days} and {\tt seconds} and returns the
   new time.
  
\bigskip{\sf REVISION HISTORY:}
\begin{verbatim}    Feb 8, 2001    B. Eaton    Specification.\end{verbatim}
 
%/////////////////////////////////////////////////////////////
 
\mbox{}\hrulefill\ 
 

  \subsubsection{time\_decrement()}


   
\bigskip{\sf INTERFACE:}
\begin{verbatim}       function time_decrement ( time, days, seconds )
 \end{verbatim}{\em USES:}
\begin{verbatim}       none
 \end{verbatim}{\em INPUT PARAMETERS:}
\begin{verbatim}       implicit NONE
 
 
       type(time_t), intent(in) :: time      ! Initial time
       integer, intent(in) :: days           ! Days in interval
       integer, intent(in) :: seconds        ! Seconds in interval
 \end{verbatim}{\em OUTPUT PARAMETERS:}
\begin{verbatim}       type(time_t) :: time_decrement        ! Returned time
 \end{verbatim}
{\sf DESCRIPTION:\\ }


  
   Decrements {\tt time} by {\tt days} and {\tt seconds} and returns the
   new time.
  
\bigskip{\sf REVISION HISTORY:}
\begin{verbatim}    Feb 8, 2001    B. Eaton    Specification.\end{verbatim}

%...............................................................
